VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BProducto"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bCategoria"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member1" ,"bEstado"
'---------------------------------------------------------------------------------------
' Module    : BProducto
' DateTime  : 30/11/2011 12:01
' Author    :
' Purpose   : Clase Datos Entidad Producto
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarncodigo As Integer
Private mvarsdescripcionCorta As String
Private mvarsdescripcionLarga As String
Private mvarbCategoria As bCategoria
Private mvarbEstado As bEstado
Private mvarnPrecio As Double
Private mvarsCodBarra As String
Private m_simagen As String
Private mvarbdestino As bdestino
Private mvarsmesa As String
Private Sub Class_Terminate()
    Set mvarbEstado = Nothing
    Set mvarbCategoria = Nothing
    Set mvarbdestino = Nothing
End Sub
Friend Property Let sCodBarra(ByVal vData As String)
    mvarsCodBarra = vData
End Property
Friend Property Get sCodBarra() As String
    sCodBarra = mvarsCodBarra
End Property
Friend Property Let nPrecio(ByVal vData As Double)
    mvarnPrecio = vData
End Property
Friend Property Get nPrecio() As Double
    nPrecio = mvarnPrecio
End Property
Friend Property Set bEstado(ByVal vData As bEstado)
    Set mvarbEstado = vData
End Property
Friend Property Get bEstado() As bEstado
    Set bEstado = mvarbEstado
End Property
Friend Property Set bCategoria(ByVal vData As bCategoria)
    Set mvarbCategoria = vData
End Property
Friend Property Get bCategoria() As bCategoria
    Set bCategoria = mvarbCategoria
End Property
Friend Property Let sdescripcionLarga(ByVal vData As String)
    mvarsdescripcionLarga = vData
End Property
Friend Property Get sdescripcionLarga() As String
    sdescripcionLarga = mvarsdescripcionLarga
End Property
Friend Property Let sdescripcionCorta(ByVal vData As String)
    mvarsdescripcionCorta = vData
End Property
Friend Property Get sdescripcionCorta() As String
    sdescripcionCorta = mvarsdescripcionCorta
End Property
Friend Property Let ncodigo(ByVal vData As Integer)
    mvarncodigo = vData
End Property
Friend Property Get ncodigo() As Integer
    ncodigo = mvarncodigo
End Property
Private Sub Class_Initialize()
Set mvarbEstado = New bEstado
Set mvarbCategoria = New bCategoria
Set mvarbdestino = New bdestino
End Sub
Public Property Get imagen() As String
    imagen = m_simagen
End Property
Public Property Let imagen(ByVal simagen As String)
    m_simagen = simagen
End Property
Public Property Get bdestino() As bdestino
    Set bdestino = mvarbdestino
End Property
Public Property Set bdestino(btino As bdestino)
    Set mvarbdestino = bdestino
End Property

Public Property Get mesa() As String
    mesa = mvarsmesa
End Property
Public Property Let mesa(ByVal smesa As String)
    mvarsmesa = smesa
End Property
